GLJNLTMP
 jctrans
set relation to sub_code into creditor,	stock_code into stmaster,	job_code into jobs,	prod_code into saleprod
sele jobs
set relation to stock_code into tempstck
froom = ""
toooo = ""
do wiprange
sele jctrans
set filter to jctrans->job_code => froom .and. 	jctrans->job_code =< toooo
reference = "REFERENCE"
dateword = "DATE"
do prtbtch with "[ Detailed Work In Progress Schedule ]","wip"
*report form wip_sum &&to print noeject
use in
ACT_CODE
SUB_CODE
FIRST_REF
------------------------------------------------------
* NAME
*   ONCLICK - Event handler for DBMITEM2
*-----------------------------------------------------------------
*	do wip_reps
saf = set('safety')
set safety off
sele jobs
set order to job_code
sele creditor
set order to sub_code
sele stmaster
set order to stock_code
copy with production to tempstck field stock_code,descriptio
use tempstck in sele() order stock_code
sele saleprod
set order to prod_code
use jctrans in sele() order job_trans
sele jctrans
set relation to sub_code into creditor,	stock_code into stmaster,	job_code into jobs,	prod_code into saleprod
sele jobs
set relation to stock_code into tempstck
froom = ""
toooo = ""
do wiprange
sele jctrans
set filter to jctrans->job_code => froom .and. 	jctrans->job_code =< toooo
reference = "REFERENCE"
dateword = "DATE"
do prtbtch with "[ Summary Work In Progress Schedule ]","wip_sum"
*report form wip_sum &&to print noeject
use in jctrans
use in tempstck
erase "tempstck.dbf"
erase "tempstck.mdx"
set safety &saf.
RETURN
PROCEDURE dtcomp     && DBMITEM1.ONCLICK
*-----------------------------------------------------------------
* NAME
*   ONCLICK - Event handler for DBMITEM1
*-----------------------------------------------------------------
saf = set('safety')
set safety off
use compjo
ACT_CODE
ACT_CODE
SUB_CODE
SUB_CODE
FIRST_REF
FIRST_REF